home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 August / August CD.bin / Shareware / Hypercard / ServerMount XFCN 1.0 / ServerMount XFCN / ServerMount XFCN / card_2837.txt < prev    next >
Encoding:
Text File  |  1994-03-12  |  2.2 KB  |  100 lines
  1. -- card: 2837 from stack: in
  2. -- bmap block id: 3734
  3. -- flags: 0000
  4. -- background id: 2742
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- Change volume, zone, server, user, password, volpassword
  8. -- parameters below to meet your needs.
  9.  
  10. on openStack
  11.   global volume, zone, server, user, password, volpassword, result
  12.   put "RENE" into volume
  13.   put "*" into zone
  14.   put "ROS-Server" into server
  15.   put "rgaros" into user
  16.   put "" into password
  17.   put "" into volpassword
  18. end openStack
  19.  
  20.  
  21. -- part 1 (button)
  22. -- low flags: 00
  23. -- high flags: 8003
  24. -- rect: left=160 top=138 right=160 bottom=260
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Mount
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   global volume, zone, server, user, password, volpassword, result
  36.   set cursor to watch
  37.   put servermount(volume,zone,server,user,password,volpassword) into result
  38.   err
  39. end mouseUp
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 00
  44. -- high flags: 8003
  45. -- rect: left=282 top=138 right=160 bottom=382
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Unmount
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   global volume, result
  57.   set cursor to watch
  58.   put servermount(volume) into result
  59.   err
  60. end mouseUp
  61.  
  62.  
  63. -- part 4 (button)
  64. -- low flags: 00
  65. -- high flags: 8003
  66. -- rect: left=37 top=138 right=160 bottom=137
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Login
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   global volume, zone, server, result
  78.   set cursor to watch
  79.   put servermount(volume,zone,server) into result
  80.   err
  81. end mouseUp
  82.  
  83.  
  84. -- part 6 (button)
  85. -- low flags: 00
  86. -- high flags: 8003
  87. -- rect: left=142 top=51 right=73 bottom=270
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Edit card script
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   edit script of this card
  99. end mouseUp
  100.